home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 January / 64er_Magazin_88-01_1988_Markt__Technik_de_Side_A.d64 / kreis demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  405 b   |  17 lines
  1. 5 rem **********************
  2. 6 rem * kreis demo (hires) *
  3. 7 rem **********************
  4. 10 gosub 50000:rem ** grafik ein **
  5. 20 gosub 50100:rem ** grafik loeschen **
  6. 30 vo=3:hi=0
  7. 40 gosub 50200:rem ** farbe setzen **
  8. 45 x=20:y=20:x1=319-x:y1=199-y
  9. 50 for r=10 to 52 step 2
  10. 60 sys 50423,x,y,r,3
  11. 65 sys 50423,x1,y,r,3
  12. 66 sys 50423,x,y1,r,3
  13. 67 sys 50423,x1,y1,r,3
  14. 70 x=x+6:y=y+3:x1=x1-6:y1=y1-3
  15. 80 next r
  16. 90 wait 198,255:gosub 50300:end
  17.